home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / ofis / allma.exe / WHTPRINT.SMM < prev   
Encoding:
INI File  |  1994-12-01  |  9.7 KB  |  568 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _DEFAULT.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Epson LQ-510
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     Calls up Print icons
  28.     
  29.     
  30.     
  31.     
  32.     786354824
  33.     47
  34.     755985920
  35.     531
  36.     3
  37.     225
  38.     1473
  39.     5
  40.     9
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     Business Writing
  64. [lay]
  65.     Standard
  66.     513
  67.     [rght]
  68.         15840
  69.         12240
  70.         1
  71.         1440
  72.         1440
  73.         1
  74.         1440
  75.         1440
  76.         2
  77.         1
  78.         0
  79.         1
  80.         0
  81.         2
  82.         1
  83.         1440
  84.         10800
  85.         5
  86.         1
  87.         720
  88.         1
  89.         1440
  90.         1
  91.         2162
  92.         1
  93.         2883
  94.         1
  95.         3596
  96.     [hrght]
  97.     [lyfrm]
  98.         1
  99.         11200
  100.         0
  101.         0
  102.         12240
  103.         1440
  104.         0
  105.         1
  106.         3
  107.         1 0 0 0 0 0 0
  108.         0
  109.         0
  110.         1
  111.     [frmlay]
  112.         1440
  113.         12240
  114.         1
  115.         1440
  116.         144
  117.         1
  118.         360
  119.         1440
  120.         0
  121.         1
  122.         0
  123.         1
  124.         1
  125.         0
  126.         1
  127.         1440
  128.         10800
  129.         1
  130.         3
  131.         9360
  132.     [txt]
  133.  
  134. <+!>Created by Ashley Bass<-!>
  135.  
  136. <+!>December 15, 1993<-!>
  137.  
  138. >
  139.     [frght]
  140.     [lyfrm]
  141.         1
  142.         13248
  143.         0
  144.         14400
  145.         12240
  146.         15840
  147.         0
  148.         1
  149.         3
  150.         1 0 0 0 0 0 0
  151.         0
  152.         0
  153.         2
  154.     [frmlay]
  155.         15840
  156.         12240
  157.         1
  158.         1440
  159.         0
  160.         1
  161.         14544
  162.         1440
  163.         0
  164.         1
  165.         0
  166.         1
  167.         1
  168.         0
  169.         1
  170.         1440
  171.         10800
  172.         2
  173.         2
  174.         4695
  175.         3
  176.         9360
  177.     [txt]
  178. >
  179. [elay]
  180. [l1]
  181.     0
  182. [pg]
  183.     3
  184.     39 24 18 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  185.     64 0 21 256 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  186.     94 0 48 1281 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  187. [edoc]
  188. @Defines@<:#284,9360>Define    MoveWindow()    DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
  189.  
  190. @Defines@<:#284,9360>Define    GetSize()        DllCall("user,GetWindowRect,HHN",%1,%2)
  191.  
  192. @Function@<:#284,9360>function begin(hdlg)
  193.  
  194. <:#284,9360>thisfile = getrunningmacrofile$()
  195.  
  196. <:#284,9360>metrics = getprofilestring$("whtprint", "Metrics", "{windir}amipro2.ini")
  197.  
  198. @If Endif@<:#284,9360>    if metrics != ""
  199.  
  200. <:#284,9360>        setdlgcallback(0, "{thisfile}!init")
  201.  
  202. @If Endif@<:#284,9360>    endif
  203.  
  204. <:#284,9360>setdlgcallback(20, "{thisfile}!curloc")
  205.  
  206. @If Endif@<:#284,9360>DlgKeyInterrupt(<[>F1], "HelpFun")  ' This if F1
  207.  
  208. <:#284,9360>Box = DialogBox(".", "Printwhat")
  209.  
  210. <:#284,9360>IF Box = -1
  211.  
  212. <:#284,9360>Message("Could not open dialog box; Exiting macro.")
  213.  
  214. <:#284,9360>EXIT FUNCTION
  215.  
  216. <:#284,9360>ELSEIF Box = 0
  217.  
  218. <:#284,9360>EXIT FUNCTION
  219.  
  220. <:#284,9360>ELSEIF Box = 9
  221.  
  222. <:#284,9360>FilePrint
  223.  
  224. <:#284,9360>ELSEIF Box = 3
  225.  
  226. <:#284,9360>call printnow.smm()
  227.  
  228. <:#284,9360>ELSEIF Box = 4
  229.  
  230. <:#284,9360>call prnpages.smm()
  231.  
  232. <:#284,9360>ELSEIF Box = 5
  233.  
  234. <:#284,9360>call prnshade.smm()
  235.  
  236. <:#284,9360>ELSEIF Box = 6
  237.  
  238. <:#284,9360>PrintEnvelope()
  239.  
  240. <:#284,9360>ELSEIF Box = 7
  241.  
  242. <:#284,9360>call prnbatch.smm()
  243.  
  244. <:#284,9360>ELSEIF Box = 8
  245.  
  246. <:#284,9360>PrintSetup
  247.  
  248. <:#284,9360>call whtprint.smm()
  249.  
  250. <:#284,9360>ELSEIF Box=10
  251.  
  252. <:#284,9360>call crash()
  253.  
  254. <:#284,9360>ENDIF
  255.  
  256. <:#284,9360>END FUNCTION
  257.  
  258. <:#284,9360><-!>DIALOG    Printwhat
  259.  
  260. <:#568,9360>-2134900736    17    54    28    111    85    ""    "AmiDialog"    "Print what?"
  261.  
  262. <:#852,9360>6    3    15    15    3    1342373896    "button"    "c:\amipro\icons\dlgicos\prnfast.bmp"    0 
  263.  
  264. <:#568,9360>83    7    24    14    9    1342373888    "button"    "Norm"    0 
  265.  
  266. 6    19    15    15    4    1342373896    "button"    "c:\amipro\icons\dlgicos\prnpgs.bmp"    0 
  267.  
  268. 6    35    15    15    5    1342373896    "button"    "c:\amipro\icons\dlgicos\prnselec.bmp"    0 
  269.  
  270. 6    51    15    15    6    1342373896    "button"    "c:\amipro\icons\dlgicos\prnenvel.bmp"    0 
  271.  
  272. 6    67    15    15    7    1342373896    "button"    "c:\amipro\icons\dlgicos\prnmult.bmp"    0 
  273.  
  274. 90    52    10    10    8    1342373896    "button"    "c:\amipro\icons\dlgicos\prnsetup.bmp"    0 
  275.  
  276. <:#560,9360>26    55    46    10    1003    1342177280    "static"    "Envelopes"    0 
  277.  
  278. <:#560,9360>26    39    50    10    1004    1342177280    "static"    "Selected Area"    0 
  279.  
  280. <:#560,9360>26    23    48    10    1005    1342177280    "static"    "Specific Pages"    0 
  281.  
  282. <:#560,9360>26    7    46    10    1006    1342177280    "static"    "Fast/Defaults"    0 
  283.  
  284. <:#560,9360>26    71    44    10    1007    1342177280    "static"    "Multiple Files"    0 
  285.  
  286. <:#560,9360>83    31    24    12    2    1342373888    "button"    "Esc"    0 
  287.  
  288. <:#560,9360>90    27    10    3    20    1342373888    "button"    ""    0 
  289.  
  290. <:#560,9360>86    65    19    12    1000    1342177280    "static"    "Setup"    0 
  291.  
  292. 104    78    5    5    10    1342373896    "button"    "c:\amipro\icons\dlgicos\in_copy.bmp"    0 
  293.  
  294. 0    1    111    84    1002    1342177287    "static"    ""    0 
  295.  
  296. <:#280,9360>END DIALOG
  297.  
  298. <:#280,9360>function init(hdlg)
  299.  
  300. <:#280,9360>metrics = getprofilestring$("whtprint", "Metrics", "{windir}amipro2.ini")
  301.  
  302. <:#280,9360>x = strfield$(metrics, 1, ",")
  303.  
  304. <:#280,9360>y = strfield$(metrics, 2, ",")
  305.  
  306. <:#280,9360>w = strfield$(metrics, 3, ",")
  307.  
  308. <:#280,9360>h = strfield$(metrics, 4, ",")
  309.  
  310. <:#280,9360>movewindow(hdlg, x, y, w, h, 1)
  311.  
  312. @Function@<:#280,9360>end function
  313.  
  314. @Function@<:#280,9360>function curloc(hdlg)
  315.  
  316. <:#280,9360>dim coord(4)
  317.  
  318. <:#280,9360>getsize(hdlg, &coord)
  319.  
  320. <:#280,9360>x = coord(1)
  321.  
  322. <:#280,9360>y = coord(2)
  323.  
  324. <:#280,9360>cx = coord(3)
  325.  
  326. <:#280,9360>cy = coord(4)
  327.  
  328. <:#280,9360>w = cx - x
  329.  
  330. <:#280,9360>h = cy - y
  331.  
  332. <:#280,9360>writeprofilestring("whtprint", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
  333.  
  334. @Function@<:#280,9360>end function
  335.  
  336. <:#280,9360><:f240,2Times New Roman,0,0,0>FUNCTION HelpFun(hdlg, key)
  337.  
  338. <:#280,9360><:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")
  339.  
  340. @Function@<:#270,9360><+!><:f240,2Times New Roman,0,0,0>end function<-!><:f>
  341.  
  342. <:#280,9360>DIALOG    Helper
  343.  
  344. <:#560,9360>-2143289344    4    127    82    108    54    ""    ""    ""
  345.  
  346. <:#560,9360>39    38    33    12    2    1342373888    "button"    "&Close"    0 
  347.  
  348. <:#560,9360>91    44    12    7    1000    1342177280    "static"    "abb"    0 
  349.  
  350. <:#840,9360>10    7    90    26    1001    1342177281    "static"    "Click on the button that represents the command you wish to execute."    0 
  351.  
  352. 1    1    106    52    1002    1342177287    "static"    ""    0 
  353.  
  354. <:#280,9360>END DIALOG
  355.  
  356. <:f240,2Times New Roman,255,255,255>FUNCTION crash()
  357.  
  358. <:I0,0,0,0><:f240,2Times New Roman,255,255,255>DialogBox(".","crash")
  359.  
  360. @Function@<:f240,2Times New Roman,255,255,255>End Function<:f>
  361.  
  362. <:f240,2Times New Roman,255,255,255>DIALOG    crash
  363.  
  364. <:f240,2Times New Roman,255,255,255>-2134376448    4    91    25    155    189    ""    ""    "Toolbar Macros by:"
  365.  
  366. <:f240,2Times New Roman,255,255,255>6    7    147    160    1001    1342177290    "static"    "c:\amipro\icons\dlgicos\in_cred.bmp"    0 
  367.  
  368. <:f240,2Times New Roman,255,255,255>5    6    145    177    1002    1342177288    "static"    "text"    0 
  369.  
  370. <:f240,2Times New Roman,255,255,255>4    5    147    179    1002    1342177289    "static"    ""    0 
  371.  
  372. <:f240,2Times New Roman,255,255,255>0    1    155    188    1002    1342177287    "static"    ""    0 
  373.  
  374. <:f240,2Times New Roman,255,255,255>END DIALOG<:f>
  375.  
  376. >
  377.  
  378. [Embedded]
  379. 00006555
  380. >
  381. [macsum] 8
  382. begin 0 1 5 2
  383. Printwhat 816 0 -1 35
  384. init 1924 1 7 55
  385. curloc 2172 1 9 63
  386. HelpFun 2450 2 1 74
  387. Helper 2493 0 -1 77
  388. crash 2794 0 1 84
  389. crash 2834 0 -1 87
  390. [macse]
  391. 14 begin
  392. 0 802
  393. 13
  394. 8 2
  395. 0 286 "whtprint" "Metrics" "{4}amipro2.ini"
  396. 13
  397. 8 3
  398. 6 3
  399. 7 ""
  400. 18 1
  401. 11 00000129
  402. 0 41 0 "{2}!init"
  403. 0 41 20 "{2}!curloc"
  404. 0 47 112 "HelpFun"
  405. 0 26 "." "Printwhat"
  406. 13
  407. 8 5
  408. 6 5
  409. 5 -1
  410. 18 0
  411. 11 00000306
  412. 0 3 "Could not open dialog box; Exiting macro."
  413. 6 1
  414. 15
  415. 9
  416. 10 00000804
  417. 6 5
  418. 5 0
  419. 18 0
  420. 11 00000360
  421. 6 1
  422. 15
  423. 9
  424. 10 00000804
  425. 6 5
  426. 5 9
  427. 18 0
  428. 11 00000410
  429. 24 111
  430. 10 00000804
  431. 6 5
  432. 5 3
  433. 18 0
  434. 11 00000469
  435. 16 printnow.smm
  436. 10 00000804
  437. 6 5
  438. 5 4
  439. 18 0
  440. 11 00000528
  441. 16 prnpages.smm
  442. 10 00000804
  443. 6 5
  444. 5 5
  445. 18 0
  446. 11 00000587
  447. 16 prnshade.smm
  448. 10 00000804
  449. 6 5
  450. 5 6
  451. 18 0
  452. 11 00000638
  453. 2 237 1
  454. 10 00000804
  455. 6 5
  456. 5 7
  457. 18 0
  458. 11 00000697
  459. 16 prnbatch.smm
  460. 10 00000804
  461. 6 5
  462. 5 8
  463. 18 0
  464. 11 00000764
  465. 24 112
  466. 16 whtprint.smm
  467. 10 00000804
  468. 6 5
  469. 5 10
  470. 18 0
  471. 11 00000804
  472. 16 crash
  473. 6 1
  474. 15
  475. 9
  476. DIALOG Printwhat
  477. -2134900736 17 54 28 111 85 "" "AmiDialog" "Print what?" 
  478. 6 3 15 15 3 1342373896 "button" "c:\amipro\icons\dlgicos\prnfast.bmp" 0 
  479. 83 7 24 14 9 1342373888 "button" "Norm" 0 
  480. 6 19 15 15 4 1342373896 "button" "c:\amipro\icons\dlgicos\prnpgs.bmp" 0 
  481. 6 35 15 15 5 1342373896 "button" "c:\amipro\icons\dlgicos\prnselec.bmp" 0 
  482. 6 51 15 15 6 1342373896 "button" "c:\amipro\icons\dlgicos\prnenvel.bmp" 0 
  483. 6 67 15 15 7 1342373896 "button" "c:\amipro\icons\dlgicos\prnmult.bmp" 0 
  484. 90 52 10 10 8 1342373896 "button" "c:\amipro\icons\dlgicos\prnsetup.bmp" 0 
  485. 26 55 46 10 1003 1342177280 "static" "Envelopes" 0 
  486. 26 39 50 10 1004 1342177280 "static" "Selected Area" 0 
  487. 26 23 48 10 1005 1342177280 "static" "Specific Pages" 0 
  488. 26 7 46 10 1006 1342177280 "static" "Fast/Defaults" 0 
  489. 26 71 44 10 1007 1342177280 "static" "Multiple Files" 0 
  490. 83 31 24 12 2 1342373888 "button" "Esc" 0 
  491. 90 27 10 3 20 1342373888 "button" "" 0 
  492. 86 65 19 12 1000 1342177280 "static" "Setup" 0 
  493. 104 78 5 5 10 1342373896 "button" "c:\amipro\icons\dlgicos\in_copy.bmp" 0 
  494. 0 1 111 84 1002 1342177287 "static" "" 0 
  495. 14 init
  496. 0 286 "whtprint" "Metrics" "{3}amipro2.ini"
  497. 13
  498. 8 2
  499. 0 20 "{2}" 1 ","
  500. 13
  501. 8 4
  502. 0 20 "{2}" 2 ","
  503. 13
  504. 8 5
  505. 0 20 "{2}" 3 ","
  506. 13
  507. 8 6
  508. 0 20 "{2}" 4 ","
  509. 13
  510. 8 7
  511. 0 284 "User,MoveWindow,HHHHHHA" "{0}" "{4}" "{5}" "{6}" "{7}" 1
  512. 6 1
  513. 15
  514. 9
  515. 14 curloc
  516. 5 4
  517. 21 2 [X]
  518. 0 284 "user,GetWindowRect,HHN" "{0}" &2
  519. 5 1
  520. 22 2
  521. 8 3
  522. 5 2
  523. 22 2
  524. 8 4
  525. 5 3
  526. 22 2
  527. 8 5
  528. 5 4
  529. 22 2
  530. 8 6
  531. 6 5
  532. 6 3
  533. 3 1
  534. 8 7
  535. 6 6
  536. 6 4
  537. 3 1
  538. 8 8
  539. 0 16 "{3}" "," "{4}" "," "{7}" "," "{8}"
  540. 13
  541. 0 287 "whtprint" "Metrics" [X] "{9}amipro2.ini"
  542. 6 1
  543. 15
  544. 9
  545. 14 HelpFun
  546. 0 26 "." "Helper"
  547. 6 2
  548. 15
  549. 9
  550. DIALOG Helper
  551. -2143289344 4 127 82 108 54 "" "" "" 
  552. 39 38 33 12 2 1342373888 "button" "&Close" 0 
  553. 91 44 12 7 1000 1342177280 "static" "abb" 0 
  554. 10 7 90 26 1001 1342177281 "static" "Click on the button that represents the command you wish to execute." 0 
  555. 1 1 106 52 1002 1342177287 "static" "" 0 
  556. 14 crash
  557. 0 26 "." "crash"
  558. 6 0
  559. 15
  560. 9
  561. DIALOG crash
  562. -2134376448 4 91 25 155 189 "" "" "Toolbar Macros by:" 
  563. 6 7 147 160 1001 1342177290 "static" "c:\amipro\icons\dlgicos\in_cred.bmp" 0 
  564. 5 6 145 177 1002 1342177288 "static" "text" 0 
  565. 4 5 147 179 1002 1342177289 "static" "" 0 
  566. 0 1 155 188 1002 1342177287 "static" "" 0 
  567. 00006580
  568.